home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / rfu < prev    next >
Internet Message Format  |  1995-03-31  |  10KB
  1. Path: seq!spell
  2. From: Lutz Vieweg <Lutz.Vieweg@p0.f30.n247.z2.fidonet.org>
  3. Subject:  v01i030:  rfu - Object Packer v1.0, Part01/01
  4. Newsgroups: comp.sources.hp48
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Checksum: 3447137922 (verify with brik -cv)
  9. Submitted-by: Lutz Vieweg <Lutz.Vieweg@p0.f30.n247.z2.fidonet.org>
  10. Posting-number: Volume 1, Issue 30
  11. Archive-name: rfu/part01
  12.  
  13. BEGIN_DOC rfu.doc
  14. Hi there!
  15.  
  16. This is my first attempt to publish one of my programs to other than
  17. FidoNet sites.
  18.  
  19. I hope this succeeds without greater trouble, because the next (and not
  20. the last) program I wish to spread is a rather big one - in fact, it
  21. sonsist of a 10kB machine-language main program, about 5kB of additional
  22. data and tools, and a document of about 32kB. The program I speak of
  23. is QED 1.05, a mega-speed object and text editor with features you never
  24. hoped to find on a handheld...
  25.  
  26. But before I try to send out this big one, here is a rather small but
  27. also interesting one: Redundance Fighter V1.2
  28.  
  29. An object packer for the 48sx written in ML.
  30.  
  31. Try it out - it shortens RPL programs typically to about 60% of their size,
  32. ML programs about 70-80%, and graphics become smaller as if would happen
  33. when you use the "GraphicObject compresser" published in the past.
  34.  
  35. The instructions you need on the packer is rather small:
  36.  
  37. ->ASC endcoded below, you will find...
  38.  
  39. RF.DIR           HP48sx directory wich conains:
  40.                  RF       a RPL program for more comfortable
  41.                           compression of either an object in level 1
  42.                           or an object named in level 1.
  43.                           Allows conversion of the packed file into
  44.                           three formats:
  45.                           .RFF  the original string created by RFP
  46.                           .RFE  a self-uncompressing object (uses RFU)
  47.                           .RFP  a self-uncompressing and evaluating
  48.                                 object 
  49.  
  50.                  RFP      compresses an object in level one     (ML)
  51.                  RFU      uncompresses an string created by RFP (ML)
  52.  
  53. That's the whole thing!
  54.  
  55. END_DOC
  56.  
  57. BEGIN_RDME rfu.rdm
  58. It's a good idea to put RFU in your HOME directory, so any program
  59. can unpack itself without problems.
  60. END_RDME 
  61.  
  62.  
  63. BEGIN_ASC rfu.asc
  64. %%HP: T(3)A(R)F(.);
  65. "69A20FF793B00000003025645530D9D202BA81CCD20562008FB97608FE31608F
  66. 2D76014713514334C2A208A66217414334F00008B24117414334256428A2606C
  67. F11748F60860143174E256068D1818FA945F13706D6068F8DA601F9750714713
  68. 51361451350781AF0A0781AF0B741084A8F2D760142164808C81AF1B134AB3A2
  69. F53132007AA714EAE7161A6746063903140791196C6531507C01968D031F1A6A
  70. 6F3031E514A1590160170A6E5FE81AF1234F5000EA4118A80081AF02658F6EF0
  71. AE8A6D14E15D0160170A6D5FE81AF1AE24AD8AA0081AF0A3120798096C013140
  72. 7C7081860781860381AF003170726013681AF0B81A618AE5E4137135E2134A6D
  73. 14E15D0160170A6D5FE81AF1A81AF10E24A18AA0081AF0A81AF1B13465CE6E30
  74. AE5D0A64A2F53132007AA714EAE7161A67550B64A6D59D0134BBF406A00347AC
  75. 810684A8F2D76001B2130382003025640530D9D20E1632C2A20D68002564263A
  76. 003882D9D202BA81881304495044230CCD20860008FB976081B580824E3000E2
  77. D534C4900C9134D9144341512105C1461648AA31C9135147C914567EF8F2D760
  78. 142164808C2BC34489D43FE3160824AB3A8001374A2541471341695B2BCB8001
  79. 4417321103B23FC3EA7DF0808F84F590CF52348E3008B2611B0010015E080883
  80. 15C07C015606838881CD9DD68F8DA601361B7E12E354A21A121B8AEEF46134D6
  81. 8FC05241461351742F04614530A219534CCD201443C2D6626818FA485000B489
  82. 8D5585F808084AB20E2342164808C8F60860DA819F034410008B6A0078C3BFF1
  83. B4C0D30AB2737A24011B2EC15234000078BE400281AF031B5DCFF61BC056416C
  84. 8A47DD213134C2AA735371351B6CD1351743425642DD2185DB927A2818F89020
  85. B096952141BB44A801BA236A4818F211B0F110B532008AB7AC3A4F81AF131301
  86. 46D53400100EA94BAAB3F68B290B476500DA8AE3C9111BE2DAAE281A608CC560
  87. 65D08B20A1341468A1F0160A3C51F67B0136E6134822EB9121B13EDCA6334B20
  88. 00D5B80C29C8BD40D531508186954631574152494692160170B66A6D56E88728
  89. FB8CEE01C96340AE581A6189E591AE9509051324146080AA134654F682431447
  90. 9EACC34FF0008BA606FCE3136101E289031509EE6066B031C09EE437C4DF5C81
  91. 8683312077B2E45B1317079A2D2D4A96D307A117B3277327339132AD00B31407
  92. 97F026B67A2AB2A54EA5808C443E95842644CA34A631B5D80014325B0A148A8A
  93. 36FED8E98CCCE0460740B09E879A03C91062606BBD7E60AA2923A0778163FF7F
  94. 711B0A48C2818F811B8AE7A06EA8086040E41B1C62431B631A96134D6818FA41
  95. 441BCB711A8BE40030C76B42B46E8558BF28AC807EF00134F10008B6E17F8D54
  96. B09231407831AD95A6FA134E5F3C03776070C07CB078B074B070BCE271AF024B
  97. 12E315070FD93AA6761808240080031B074DC82D4F5000F9797931635FA2F4A0
  98. A67B67011BAF926135AEB14D1F0215C7144818F211451BBC410402818FA15808
  99. CB41014432107AB701A2F470AAF8CD266431F03BC00954FE53131B69A6E4A0C4
  100. A6E5AFA2F5F4F781E09D90411658C20A67C4550B67A6D5E9011BB010015C01B5
  101. A44F5D2131CA140832D2EAC746300C50E362D8520161D4130CE1532150216017
  102. 0CE5FE0180824BBF406D0034767AC810720102AD6061B8A6F0E34CCD20145174
  103. 1BD6C74A73143EA00ABCEE08089315C085F808084A8F2D7609780C0406301018
  104. 851008FB976081B52C5E4F800E2D53415900C913434C4583E5147D71461648AA
  105. 315092EB14567EF475171142164808C81007B0003D0003E000FF000B3100F410
  106. 0C510066100C7100C8100991003B10071200D220093200752001620017200192
  107. 000880BA200EB200AD2004E2004F2008230070500C6500C750019500B95003B5
  108. 00CC500C9600FA6005C6006F60090700F1700703670067700C8700EC7000E700
  109. 8F70015800B68D361000044230B2130084E2030256455EB3A193632B21302A80
  110. 020256420D9D20E1632C2A2014400256426E5002825D9D20E1632C2A20B20000
  111. 225564657E64616E6365602649676864756273F2A2485A1372002D20006513E2
  112. 230302269702C45747A7026596567756768037057015000078BF1840AD1CE052
  113. 362827431923CE22721968BC1145279E1AFE22377F9C2A292CF104B02B21305B
  114. F365A0DE2752A285724B2A2E0CF188A9DFDF4E9D1A1DBBF18DBF1E98E1C432D6
  115. E20106511B048068F40343605AE4E166A73CEF484E20302564055AF1C8167304
  116. 2A6EF1300034F6D6072756373796F6E6029220B1BFB35D26C656233A2485AC9A
  117. 54570756497632DCC02ED2A2F17A1F31BF5740EFAB42D3E01866771000F4C646
  118. 02C656E6A30583D9E3576BA1653389E45677C1EC22E466524319900000282520
  119. 289339202D80A404B10EEDB8013550FA14B2A255DB153822D529492574662547
  120. A203486D0000E225646402C80252AD3A905B2130D5112683A2F17A1D6BB18704
  121. 19E0E21D4EB1C9432D9D20E163278BF18B9C11C4322E894444C459FA3EBA0145
  122. BC2B0000344205F03F680B478B40A74235B162BBF18251998002BB597E62BC1E
  123. F53293632E8B345693E8E497632DCC0247A20DC41BD27D0000E2256464010269
  124. 210B41155F8558ECDEB33C5A245C1597171A48A02546514C4D525C2058AC54F3
  125. 9B2A2691129D946C7D19C3A4F65B0BC178BF18B9C19C2A290DA28446D25C58C1
  126. 31B176B47C97000072885562BC145632559697632DCC015472D5DF223CE291F8
  127. 4AFE222CA900BC5EEF5329D0E84E2030256455EB3A193632B21305109"
  128. END_ASC
  129.  
  130.  
  131. BEGIN_UU rfu.uu
  132. begin 644 rfu.bin
  133. M2%!(4#0X+466*O!_.0L````#4D95`YTM(*L8S"U0)@#XFV>`[Q,&^-)G$'0Q#
  134. M%31#+"J`:B9Q%#1##P"`*Q1Q%#1#4D:"*@;&'W&$;X`&01-'+F5@V(&!KTGUN
  135. M,0?6!H:/K0;Q>047=#$58T$54W`8^J!P&/JP1P%(BB]]!D$21@C(&/JQ,:0[0
  136. M*E\3(P"G>D&N?F&A=F1@DS!!<!F1QE83!<<0:=@P\:&F]@,37D$:E1`&<:#FE
  137. M]8ZA'S+T!0"N%(&*`!CZ(%;XY@_JJ-9!'M40!G&@UO6.H1_J0MJH"H"A#SHA#
  138. M<(F0QA`3!,<'&&AP&&@P&/H`$P<G!C&&H0^+H1:H7DXQ%U,N,:3601[5$`9QN
  139. MH-;UCJ$?BJ$?X$(:J`J`H0^*H1\;0U;LY@/JU:!&*E\3(P"G>D&N?F&A=E6PC
  140. M1FI=V1!#NT]@"C!TRAA@2(HO?080*S$P*``#4D90`YTMX&$C+"K0A@!21F*C;
  141. M`(,HG2T@JQB(,4"4!40RP-P":`"`OWD&&%L(*.0#`"Y=0TP)P!E#G4$T%!42M
  142. M4!QD882J$YPQ%72<067GCR]]!D$21@C(LCQ$F$WS/F&`0KJC"!!SI%(4=#$4<
  143. MEK6RO`@01'$C$3`K\SRNUP\(^$A?"?PE0^@#@"L6L0`!$.6`@#A1#,<096`X9
  144. MB!C<V6WXV&H08['G(3Y%*J$AL:CN3Q9#;?@,)11D,15'\D`65`,JD37$W`)!]
  145. M-"QM)H:!KX0%`$N8V%58CX"`I"O@,B1AA(",;X`&K1CY,$0!`+BF`(<\^Q]+-
  146. M##V@*S>G0A"QXAPE0P``A^L$(!CZ,+'5_&^Q#&44QJATW1(30RRJ-S474['&U
  147. M'5-Q-"1E)-T26+TIIX*!CPD""VE9$A2[1(H0JS*FA($O$0L?`5LC`*A[RJ/T(
  148. M&/HQ,1!D74,``>":M*H[;[B2L'16`*VH/IP1L2ZMZH*A!LA<!E8-N`(:0T&&'
  149. M&@]AH,,5;[<08VXQA"*^&1(;X\UJ,[0"`%V+P)*,VP1=$P48:%ED$W44)91D.
  150. M*6$0!VNFUF6.>(*_R.X0G#8$ZH6A%IA>&>I9D%`Q0D$&"*HQ9$5O*#1!=.G*`
  151. M//0/`+AJ8,\^,180+I@P49#N!F8+$PSI3G-,_<48:#@3`G<K3K4Q<7"ITM*DZ
  152. M:3UP&G$[<C=R,QDCV@`[07!Y#V)KIZ(K6N1:",A$XUE(8D2L0VH36XT`02.UC
  153. MH$&HJ&/OC9[(S`YD<`0+Z7BI,)P!)@:VV^<&JI(R"G<8-O_W%[&@A"P8^!BQ^
  154. MJ'X*YHJ`!@1.L<$F-+$VH6DQU(:!KQ1$L;P7H;A.``-\MB1+YEB%^X+*".</=
  155. M$$,?`(!K'O?810LI$P2'$]I9:J\QY/7#,'<&!PS'"X<+1PL'RRX7^B"T(3Y10
  156. M</"=HVIG@8!"``@PL7#4C-+T!0"?EY<3-O4J3PIJMW80L?HI%E/J&]3Q(%%\[
  157. M082!+Q%4L<L40"`8^!J%@+P4$$0C`:=[$"I/!ZJ/W&)&$P^S#)!%[S4QL99J\
  158. M3@I,:E[Z*E]/?Q@.V0D4884LH'9,5;!V:EV>$+$+`1#%$%M*]-42$ZQ!@",M#
  159. MKGQD`\`%/B:-)1`633'`'C42!1(&<<!>[Q`(*+3[!-8`0V>GC`$G$"#:!A:+D
  160. M:@\^Q-P"015'L6U\I#=!XPJ@R^Z`@#E1#%B/@("D^-)GD(?`0&`#`8%8`8"_'
  161. M>0886\+E]`C@TC44E0"<,33$5#A>0=<79&&$JA,%*;Y!9>=/5W$1)&&$@(P!Y
  162. M<`L`TP`P#@#_`+`3`$\!P!4`9@'`%P",`9`9`+,!<"$`+0*0(P!7`A`F`'$"M
  163. M$"D`@`BK`N`K`-H"0"X`]`*`,@`'!<!6`'P%$%D`FP4P6P#,!<!I`*\&4&P`4
  164. M]@:0<``?!W`P=@!V!\!X`,X'`'X`^`<0A0!KV&,!`$`D`RLQ`$@N,"!E5.4[=
  165. M&CDVLA(#H@@@(&4DT-D"'C;"H@)!!"!E).8%("C5V0(>-L*B`BL``")51E;G_
  166. M1A;F-E8&8I1VAD97)C<O*H2E,2<`T@(`5C$N,C`@8GD@3'5T>B!6:65W96<([
  167. M<U`'40``A_N!!-K!#B5C@G(TD3+L(B>1ALL15'+IH>\B<_?)HI+"'T`+LA(#I
  168. MM3]6"NUR)2I8)[2BXL`?B)K]_>39H=&[']C[X8D>3"-M+A!@%;%`"(9/,#0&O
  169. MI4X>9GK#_H3D`@-21E"E'XQA-T"BYA\#`$-O;7!R97-S:6]N("D"&_L[U6)L6
  170. M93*C0EC*J45U<&649R/-#.(M*A^G\1/[=03^NB0]#H%F=P$`3VQD(&QE;CI0>
  171. M.)T^=;8:5C.83F5W',XB3F8E-)$)``""4@*".9,"T@A*0!O@WHL04P6O02LJ0
  172. M5;U1@R)=DI121V92="HPA-8``"Y21D8@C"`EVJ,)M1(#71%B."H?I]&V&WA`U
  173. MD0XNT>0;G#32V0(>-G*X'[C)$4PCXIA$1$R5K^.K$%3+L@``0R10#_.&L'2X.
  174. M!'HD4QLFNQ\H%9D((+N5YR;+X5\C.3;BN$-E.8Y.>3;2S"!T*M!,L2W7```N`
  175. M4D9&$""6$K`44?58A<[M.\.E0L51>7&AA`I29!7$U"7%`H7*13^YHF(9(=E)"
  176. MQM>1/$IOM;`<A_N!FQS)HI+0*DAD+<6%'!,;9TO'>0``)XA5)LM!92-5:7DVQ
  177. GTLP012==_2+#+AF/I.\BPIH`R^7^-9(-CN0"`U)&5;ZCD6,C*S$`Q
  178. ``
  179. end
  180. END_UU
  181.  
  182. Hope to stay in contact,
  183.                           Lutz Vieweg.
  184.  
  185. PS: Please excuse linguistic mistakes - english is not my native
  186.     language.
  187.  
  188. PPS: Tried to answer but failed? Try the following adress:
  189.      Lutz.Vieweg@p20.f30.n247.z2.fidonet.org
  190.  
  191. --
  192. This message was sent to you through FredGate @ COM-BBS, Heusenstamm FRG
  193.  
  194. Just in case: send your flames to "root@muffel.hotb.sub.org", I'll for-
  195. ward them to my null-device ;-)
  196.  
  197. If you want your mail-reply to be sent through this gate, please address
  198. a FIDONET-User as "User.Name%pA.fB.nC.zD.fidonet.org@muffel.hotb.sub.org"
  199.  
  200.